ccccccccccce Lk IIIIII11 UUU UUU TTTTTTTTTTTTTTT CLt 
cccccccccccc LLL III1I111 UUU UUU TTTTTTTTTTTTTTT LLet 
cceccccccccce =k HII UUU UUU TITTTTTTITTTITTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] U UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I}] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL IJ] UUU UUU TTT LLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LELLLLLELLLELLLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HIIIII11 UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
CCCCCCCCCCCC LLLLLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
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z=z=z= =Zz=z=zTII=T 
xz 
== 
== 
=z=z=zr=z ott+++7+7- 
ww NANNY 
nn MMM 
nw nw nn 
Ad nn nn 
mn nn “nn 
“vw nn Vn 
ww nw nn 
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NNNYM nn 
MMMM nn 
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“Mn “nn nn 
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mn vn “own 
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wn nw nn 
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MNnWNnN vn 
MMMM nn 
= oe 
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1b-Se 1984 01:20: AX-11 Bliss =32 V4.0-74 Pa 1 
1e-366-1984 93:69:86 CLIUTL. ge? 1eHGw10.832; oa (1) 
MODULE showio Teer eel ine me 


DRESSING RODE (EXTERNAL =GENERAL 
NONE XTERNAC=LONG_RELATIVE) 


i ] 


teen 


i 
i eeeeeenenveeseeeneeneeeneneeereoreerrereertecreereennnernennrenenenerestnes 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
i@ ALL RIGHTS RESERVED. 


:# THIS SOFTWARE IS atte qaeee A LICENSE AND MAY BE USED AND sorite 
'® ONLY IN mee WITH THE vena OF SUCH paces NSE AND WITH THE 
:# INCLUSION OF i & yt gtd NOTICE. THIS SOFTWARE OR ANY OTHER 
'@ COPIES THEREOF MA T BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!@ QTHER PERSON. NO. riTLe TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
® 
® 
® 
® 
® 
® 
® 
oe 
ie TRANSFERRED. : 
® 
® 
* 
® 
® 
® 
® 
ft 
& 
® 


COOWONAULS WO 0M 


IR) 8 2 2 dd ed 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
‘; sepokat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'# DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


MEPESESISIILIS TILE TESTE EE TEESE ETT ETE TTT PTS TSS TT CT CTT TCT TPCT TP ETT Eee Teer 
' 


MEUM —OOONAUS WN — 


BUA HANA AAAI DTUNRININIONIRIIY — ah a 
ODNAWE WN OC OBNAUEWN OOOO EWN OC ODNAUEWNOOONOU SWS 
SSSSSSSSSSSSSSSsssss 


ht kk i a a 8 a tn a bb ts 9 4 4 9 9 bs a ss as a =a as ss a as as ss as a ts ts a ts OOOO 
- 
2 


Be Se Se Se Be Se Be Se Fe Se Se Be Ge Se Se Fe Ge Ge Fe Ge Se Ge Ge He Se Se Se oe Se Se Se Se Ge Se Se Ge Se Se Ge Se Se Se Se Ge Ge Se Ge Se Ge Se Se Se Se Ge Ge Se ae 


; ie 
i 
; FACILITY: SHOW utility 
$$ i ABSTRACT 
3 this module contains the 1/0 processing routines. 
39 i ENVIRONMENT: 
Z se VAX native, user mode. 
? ¢ AUTHOR: Gerry Smith CREATION DATE: 25-Aug-1983 
: rf: MODIFIED BY: 
4 4 i v03-003 MCNO176 Maria del C. 11-Jul-1984 
2 Suppress output when sNooUTPUT. ‘3 specified. 
4 B69 i v03-002 GAS0181 Gerr ry $e ry ats 
29 29 i Add an alternate pat ~ SPEN OUTPUT, to allow JCP 
1 H to display journals ee the SHODEVxxx routines. 
3 3§ i v03-001 gaperr's Sorry 30 25-Aug-1983 
54 54 i split SHOWMAIN into HoURRIN and SHOWIO. Also added 
55 Bee B the /OUTPUT qualifier. 
3 087 1 ie 


sH0W)9, rb-eo-1964 01:20:42 yactt BLing-52 v4.0-74 Page 2 
: $2 «ROSEY LuBeany ssvssunany srancer”; | YAX/VRS_ conan, det init fons 


nitions 


SHOW 


“O00 
e 
6g 
' 
‘ 


= 


EXTERNAL ROUTINE 
cli 


LOCK(rab$c_bin], 


—> —) —) —) — 4 +» sd 2 2 db ss 2 2 


NISSSLSALER IS Sa 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


K 14 
VeoSep-19ee 12:09:96 EetTuTLsneisnovlo.e32: 


! Open output file 

iw ne to output file 

! Print an already-formatted Line 
! Signal an 1/0 error 


imeem 
> 
~~ 
- 
e 
< 


Get qualifier yotus 
Test if qualifier present 


' Output RAB 
: Resul tan name string 
' Output file descriptor 


14 
IB-Sep-1984 1:20:22 WARHOL iag-32. 4.0742 
Sou ROUTINE open_output (isi) : NOVALUE = 


SN 
OBNOARG 
: 

: 

H 


~~ 


' 

: Open output file 
; Inputs: 
i 
i 
' 


Mew 


isi - if called from JCP, then ISI is the internal stream identifier 
of an already-opened file. 


> sb ab — 2 > bd 2b as > a _ ss a 2 tt tt it 


g 4 aia 
91 BUILTIN 
35 actualcount; 
94 LOCAL 
95 desc : SBBLOCKCdsc$c_s_bin] ! Output descriptor 
96 out_fab : SBBLOCK fabsz_bind, i Output FAB 
9 out_nam : S$BBLOCKLnam$c_bind, ! Output NAM block 
4 out_ess : SBBLOCK(nam$c_maxrss); ! Expanded string 
00 ! 
01 ! Check to see if from SHOW, or from JCP. If there is an actual parameter 
4 ' passed, then this has been called from JCP, and all that is required is 
87 : to dummy-up the RAB. 
05 iF actualcount() NEQ 0 ' If from JCP 
06 THEN ! then file already opened... 
0 BEGIN 
08 pate phen = out_rab); ! Set up the RAB, and then 
09 out tab rab$w_isi] = .isi; i stuff the ISI in place. 


Fill in the RMS control blocks. 


SFAB_INIT(FAB=out_fab, 
DNM = ‘SHOW.LIS', 
NAM=out _nam, 
FOP=<ofp,sqo>, 
RAT=cr, 
FAC=put); 


Mororor 


BSVSRRG A SOWNI AR UV HOOHNOA RAW A ODS MOAR I a Oe Oe 


Initialize output FAB 
Default to show.lis 
Point to a mame block 


— ad 


WR 0 OO WOVE WN 0 OOVNOU SEWN Oo 
wvwuv0UU 


SOSSOOOOSOSOOSOOSOSOSOSOSOCOOOSSOSOOSSOSOSOOSOSOOOCOCSOOOOCOCOOOOOOOOOOOOOOOOO 


: Get the output file spec, if any. 
IF cli$present(ZASCID ‘OUTPUT') If /OUTPUT, then 
THEN et whatever 

he user typed in. 
(If Yost /OUTPUT, 
default will be 
SHOW.LIS) 


EGIN 
Siete dendenstdeorts 
cli$get_value(ZASCIb ‘ouTPuT’, 


desc); 
out_fab fabst_tnaj = .desc(dsc$a_pointer); 
out fab fab$b_fns] = .descldsc$w_length]; 


me a a at at as et et ot ot = 2 2 a YL ss SS 


P 4 
oe (4). 


: 


DAD AAAI & BSS 
OWONAUESWN "CO DOONO 


APAN—S 


nk a at tt 9 = = tn —) Ss in = a as — — 4 a a ss 


NNNNNOACAAAOAOOAOQOUW Iw lVal tal eal tal al ae oP oP ae oP at ot oe 
RANVSSELSE ALERTS SSVSVLUNISSSELSESESALESSVSY 
vw vuvvU 
COOOCCCOCOCOCOCOCOCOCOCOOCOOCOCOOOoOO 
yy WY OY WY oY oe 
MEW oO wn 


CGOOCOCOCOOOSOOOCOCOOOOoOOoOO 


Moronoron 


Aan 
sooo 


iebe9$e Q4:98:92 YAEL Shenk yo taz® 


ELSE 
: y Sthorwes use NL: to suppress all output 


oon afabf tang ine} : veut A a 


out ~fabl fab$b_fns CHARCOUNT ( 

SNAM_ ety nam, ' Initialize NAM block 
RSS=namSc snenrss. ! Get a resultant name 
RSA=out_rs 
ESssnamSc “aenrss, ! Get an expanded name 
ESA=out_eSs); 

SRAB_ PRET COQoout rab ! Initialize output RAB 
FAB=out_ “tabs; 


' 
Create the output file and connect record stream. 


i NOT SCREATE(FAB=out_ fab) 
THEN file sprrertenens =prenout. 


ona 3 fab$l sts} 
out fabl fab$l-stvJ) 


IF NOT SCONNECT(RAB=out_rab) 
THEN file aren sones =pPenout. 


t_ fab 
wd rab rab$l_sts) 
-outrabLrab$l-stvJ); 
! 
; Point the OUTPUT_DESC to the resultant name string. 


ate ~geschdsc$u_ Length] = .out_nam(nam$b_rsl]; 
output_desc(dsc$a_pointer] = out_rss; 


RETURN; 
END; 


-TITLE SHOWIO 
-IDENT \v04-000\ 


«PSECT SPLITS,NOWRT ,NOEXE ,2 


53 49 4C 26 57 4F 48 53 00000 P.AAA: .ASCII \SHOW.LIS\ 
00 00 54 50 ong oot 9008 AAC: ASCH \QUTPUT\<0><0> 
00 00 54 55 50 54 ago oF. itt P.AAE: "Ascii *\GUTPUT <o><0> 
S3SGSRRE, S858 P-AAD: “E 
3A 4C 4E 00028 P.AAF: <ASCII \NL: 


-PSECT SOWNS,NOEXE ,2 


Page 


5 
(4). 


iecdeo-t9Be 01:20:32 yauctt elie 


j 


32 V 
I 


BLK 
oo s : 
-BLKB 8 
SRMS_PTR= OUT_RAB 
SRMS-PTR= OUT“RAB 
.EXTRN CLISGET“VALUE, CLISPRESENT 
“EXTRN SYSSCREATE, SYSSCONNECT 
<PSECT SCODES,NOWRT,2 
O1FC 00000 .ENTRY OPEN_OUTPUT, Save R2,R3,R4,R5,R6,R7,R8 : 
000000v EF 9E 0000 VAB FILE-ERROR, RB : 
0000000' EF 9E 000 MOVAB oP. R : | 
4 0000000" EF 9E 0019 MOVAB $RMS PTR, R6 : | 
E FEG8 CE 9€ 0001 v =440TSP). SP : | 
6¢ 95 0001C TSTB ss CAP) + 0200 
13 1 9001 BEQL =s«1$ : | 
0044 &8F 00 6E 00 2c 90 MOVCS #0, (SP), #0, #68, SRMS_PTR : 0203 
66 4401 8F B80 00028 MOVW #17409, SRMS_PTR : 
02 Ab 04 AC fe 90 D mov ISI, OUT_RABF2 3 9204 
0050 = 8F 00 6E 00 C 00038 1$: MOVCS #0, (SP), #0, #80, SRMS_PTR > 0216) 
ABS AD 500 F BO 0003C¢ MOVW #20483 SRMS_PTR : 
AC AD 20000040 8F D0 00042 MOVL  #536870976, SRMS_PTR+4 ; | 
BE AD 1 90 0004A MCVB #1, $RMS_PTR+ : 
C6 «AD 020 F BO 0004E MO\W #514, $RAS_PTR+30 : 
DO OAD FF48 CD 9E 00054 MO\'AB NAM, SRMS_PTR+40 <3 | 
D8 AD 67 9E 0005A VAB  P.ARA, $RMS_PTR+48 ; 
DD AD 08 90 0005 MOV. #8, SAMS_PTR+53 : 
10 A? 9F 0006 PUSH: : : 
1 FB 006 CALLS #1, CLISPRESENT : 
4 0 £9 0006¢ LBC : 
02060000 8F 00 006 VL #344671936, DESC : 
FC AD 04 00077 CLRL  DESC+4 : 
FB AD OF 0007A PUSHAB DESC : 
20 Az 9F 0007D PUS AAD : 
02 F 0080 CALLS #2, CLISGET_VALUE : 
FC OAD 008 MOVL  DESC+4, OUT FAB+44 ; 
FB AD 008C MOVE ESC, OuT_FAB+52 : 
09 +11 9091 BRB : 
28 «6A? OO 095 2s: MOVAB P.AAF, OUT FABeA4 F 
03 009 MOVB #3, OUT _FAB+5 ; 
00 2c 009 3$: MOVCS #0, (SPT, #0, #96, SRMS_PTR : 
600 rt 80 DONG MOVW #24578, SRMS_PTR ; 
1 BE MNEGB #1, SRMS_PTRT : 
44 A6 9E 0008 MOVAB oy RSS, SRMS_PTR+4 : 
01 gE 08 MNEGB #1, ~$RMS_PTR+TO ; 
oF E 0008 MOVAB uf Ess SRMS _PTR+12 : 
96 2c 99¢ movcS #0,~(SPS, #0,-#68, SRMS_PTR : 


Bere ana ANGI OL gc 32 v4.0:242 Page 2 


; Routine Size: 283 bytes, Routine Base: $CODE$S + 0000 


4401 8F CA MOVW #17409, S$RMS_PTR : 
RB BARS BBY, ir Fag. Saree 0280 
0G i 9} re oF CALLS at. YSSCREATE ; | 
dl BML Bellen BELEaB. “osm i 925s 
007810A F DD OO0E SHL oy a88s78 : | 
68 4 FB EE CALLS #4, FILE_ERROR : 
6 DD oF 4$: PUSHL 6 + 0256 
000000006 00 1 FB O0F3 CALLS #1, SYSSCONNECT ; | 
1 0 5 OOFA BLBS 0, 5$ : 
A6 7D O00FD mMOVa  OUT_RAB+B, -(SP) ; 0259 
ag AD 9F 00101 PUSHAB “F + 0257 
007810A F DD 00104 PUSHL #7868578 3 
4 FB 010A CALLS HA FILE_E : 
144 6 FF46B CD 98 00100 5$: MOVZBW OUT_NAM¢3, ROOTPUT DESC > 0265 | 
168 (6 44 AG 9E 00114 MOVAB OUT~ “Ass. duTPUT_DESC+4 + 0266 
04 OO11A RET ; 0269, 
| 


aetn 


fe 


15 
1$-Sep-1964 01:20:22 yaxctt BLie5-52 v4.0-74 Page 68 


THEN SIGNAL_STOP(.status); 


out_rab(rab$w_rsz] = -descf 0); 
out rablrab$l_rbfj = .descl1J; 
F ROT $PUT(RAB=out_rab) 
THEN SIGNAL (show$S _writeerr, 
1, output_desc, 
Pabst sts], 


-out_rab 
rab$l_stv 


-out_rab 
END; 


RETURN; 
END; 


; 176 , 5, OGAL ROUTINE showSwrite_line : NOVALUE = 

3 8 7 

; 1 73 ; Write a record to the output file 

; ¢ 7 Inputs: 

: 185 8 i CONTROL_STRING = address of an descriptor for a control gir ing for $FAOL 
; 187 9 PARAM_LIST = address of the parameter List for input to $FAOL 
ie Bhe: 

; 150 4 2 BUILTIN 

; «191 5 actualcount, 

; 136 $ actualparameter; 

: 19% es LOCAL 

: 188 90 — 

; 197 91 INCR dummy FROM 1 TO ACTUALCOUNT()/2 DO 

; 198 3 BEGIN 

: 199 9 LOCAL 

; 200 94 status 

; 201 95 contro(_string, 

; og 0 paran.list 

: 20 029 uffer : VECTORC1024,BYTEI, 

3 be 8 38 desc : VECTOR(2); 

3 206 0800 control string = ACTUALPARAMETER(2*(.dummy-1) + 1); 
: o 930) param_list = ACTUALPARAMETER(2*(.dummy-1) + 2); 

: 209 305 desc tl] = ZALLOCATION(buffer); 

5 19 she desc(1) = buffer; 

; 1 P 0306 4 IF NOT (status = SFAOL(CTRSTR = .control_string, 

; 21 P b3 4 OUTBUF = desc, 

: 14 P 03 4 OUTLEN = desc, 

3 HF 3 4 PRMLST = .param_list)) 

; 1 

| 


DBNOUESWN—OOCONO 
WWAIAIAIWN AWNING 
ROPORY 3 OOO 
MO VDONOUSWN—-O0O~n 


MPOPoPoNrnnn—— 


-EXTRN SYSSFAOL, SYSS$PUT 


$$ —_— _— 


1E-bep-1964 01:20:82 yanet BL ing=32 v4. 0-742 Page 


fe 
gs 


4 00000009" EF MOVAB our RAB+34, R4 : 
FBF & MOVAB =1032(SP), SP : 
A MOVZBL (AP), R3 ; 
C6 0001 DIVL2 #2, R3 : 
D4 00014 CLRL Y ; 
é } 18 BRB : 
50 Q 1 18 1$ ASHL #1, DUMMY, RO ; 
FC AC4O p 1 MOVL  =4(AP)CROJ, CONTROL_STRING : 
50 01 ASHL #1, DUMMY, R : 
6€40 3 MOVE (AP) CROJ, PARAM_LIST : 
6E 0499 BF 3C MOVZWL #1 : 
04 AE AE — 000 VAB_ BUFFER, DESC +4 ; 
50 0D 000 PUSHL PARAM_LIST : 
4 AE 9F 000 PUSHAB ; 
8 AF F 000 PUSHAB DESC ; 
51 0D 00 B PUSHL CONTROL_STRING : 
000000006 00 oe 4 0 CALLS #4, SYSSFAOL 3 
09 0 E8 00044 LBS = STATUS, : 
50 DD 9 47 PUSHL STATU 3 
000000006 00 01 F 49 CALLS #1, LIBSSTOP ; 
64 6— 80 00050 2s: MOVW DESC, OUT_RAB+34 : 
06 AG 04 AE 00 0005 VL DESC+4, OUT_RAB+40 3 
DE AS 9F 0005 PUSHAB OUT_R ; 
000000006 00 gi re 005 CALLS #1, ~SYS$PUT : 
1 0 E 006 BLES =soR ; 
7E ES AS 7D 0006 MOVO OUT_RAB+8, -(SP) ; 
01 C4 OF 00069 PUSHAB OUTPUT_DESC : 
1 DD 0006D PUSHL ; 
00781002 8F DD 0006F PUSHL #7868626 ; 
000000006 00 5 Fe 0075 CALLS #5, LIBSSIGNAL ; 
98 52 3 £3 0007C 38 AOBLEQ R3. Y, 1$ ; 
04 00080 RET : 
; Routine Size: bytes, Routine Base: CODES + B 
Rout i i 129 i SCODES + 011 


Sep-1 AX-11 Bliss-32 V 6:835¢ Pa 10 
IEReoct9Re 4:20:92 YM 8199232 v4 03 o 9 
‘sty ROUTINE showSprint_line (length, buffer) : NOVALUE = 

cord te the outpus file. This routine differs from 


INE that ¥ + is passed is the address and length 
ready to print 


. so 


G 

8 

' oco 
i 

i 

i 

i 

i 

i 

i “*Lewors = length of buffer 
BUFFER = address of buffer. 
i 


out_rabCrab$Sw “ref = length; 
out rab(r abst. rb .but er; 

td Not AB=out_rab 

THEN SIGNAL Cehou’ reo, 


NOUS WN (OO OODNAYL EWN ("OOONOUEw 


1, output_desc, 
-out_rablFab$l -$f54 
‘out “rabCrab$i"stv j 
RETURN; 
END; 
0004 00000 -ENTRY SHOWSPRINT_LINE, Save R2 : 0323) 
52 00000000" EF 9E 00002 MOVAB OUT_RAB+ 2 : 
62 04 AC BO 00009 MOVW LENGTH, OUT_RAB+34 : 0338 
06 A2 08 AC D0 0000D MOVL BUFFER OUT~RAB+40 : 0339 
DE A2 OF 0012 PUSHAB OUT_R : 0340 
000000006 00 gi FB 001 CALLS #1, ~SYS$PUT F 
17 0 E 001¢ BLES) ssaR ; 
7E ES Ag D 0001F MOV OUT_RAB+8, -(SP) > 0343 
0122 C2 9F 000 3 PUSHAB OUTPUT_DESC + 0341 
gi DD 000 PUSHL Hi : 
007810D2 BF DD 00029 PUSHL #1568626 F 
000000006 00 05 FB 000eF CALLS #5, LIBSSIGNAL : 
04 00036 1$: RET + 0347 


; Routine Size: 55 bytes, Routine Base: $CODE$S + 019¢ 


7 l 


16-50-1984 93:60:92 AX-11 Oh lege V4.0-74 


14-Sep-19 CLIUTL.SRCJSHOWIO.832; 
3 ROUTINE file_error(message, fab, sts, stv) : NOVALUE = 
; BEGIN : 4 
; pose 
. ! 
3 ; i FUNCTIONAL DESCRIPTION: 
; 5 ; This routine signals an error for a file. 
; Inputs: 
; i message Message 
; 60 : fab . Address of the fab 
; ; } sts, stv STS and STV values 
4 — 
; 5 2 MAP 
: re 81 fab : REF SBBLOLK; 
; | vee nam = .fabCfab$l_nam) : SBBLOCK; 
; 20 filedesc : SBBLOCKCdsc$c_s_bin); 
; 7 
: 74 CHSFILL(O, dsc$c_s_bln, filedesc); 
3 fe iv gpentnente sets NEQ 0 ! If resultant name present 
; 39 BEGIN 
; 38 filedesc(dsc$w_length] = .namCnam$b_rsl]; 
: a4 {itedesc dsc$a_pointer) = .nam(nam$l_rsaJ; 
5 3 it 4 IF .namC(Cnam$b_esl] NEQ 0 ! If expanded name present 
3 383 BEGIN 
; 3 84 filedesc(dsc$w_length] = .nam{(nam$b_esl]; 
: 85 {ikedesc dsc$a_pointer] = .nam(nam$l_esal 
; 387 ELSE 
; ; 8 BEGIN 
3 89 HB pee ote ned wetboary Hoe = .fab(fab$b_fns]; |! Use filename string 
; 90 A et dsc$a_pointer]) = . fabl fabST_fnad; ' if all else fails 
; 0 


prom C neesege. 1, filedesc, .sts, .stv); 


OOFC 00000 FILE_ERROR: 
.WORD Save R2,R3,R4,R5,R6,R7 

56 08 C 90002 SUBL2 #8, SP 

§ 08 AC 00 000 MOVL FAB, R7 


row | 


15 
1$-se “19 :20: AX-11 Bliss-32 V4.0-74 
12-808-198¢ 93:40:92 CLIUTL. SRCISHOWIO.B32: 
56 28 «=A? «O00 MOVL 40(R7), R6 
00 6E 99 i % MOVCS #0, (SP), #0, #8, FILEDESC 
03 Ab 93 Is18 3(R6) 
4c 03 A i8 MOVZBW $fn6), FILEDESC 
04 AE 4 A i MOVL 4R6), FILEDESC+4 
08 AG 1$: STB Tyne) 
6€ 08 A 98 § MOVZBW + r6, FILEDESC 
04 AE C A o¢ f MOVL os FILEDESC+4 
6E 4 AZ 98 0 ; 2$: MOVZBW 52(R7), FILEDESC 
04 AE € A? p 90 VL 44(R7); FILEDESC+4 
7E ¢ AC 7D 0003C 3S: va §TS, =(SP) 
08 AE OF ob4$ PUSHAB FILEDESC 
07 DD 0004 PUSHL #1 
04 AC DD 0004 PUSHL MESSAGE 
000000006 00 05 FB 00048 CALLS #5, LIBSSIGNAL 
04 0004F RET 


; Routine Size: 80 bytes, Routine Base: S$CODE$ + 0103 


H 15 
1ecSep-198e 12:69:86  EeCiunesnessnowlo.e32: 


0397 0 ELUDoN 


-EXTRN LIBSSIGNAL, LIBSSTOP 


PSECT SUMMARY 
Bytes Attributes 
332 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
45 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
547 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
; eoeeeeo= Symbols -<------ Pages Processing 
: File Total Loaded Percent Mapped Time 
: $255$DUA28:(SYSLIBISTARLET.L32;1 9776 106 1 581 00:01.0 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=L1IS$:SHOWI10/0BJ=OBJ$:SHOWIO MSRC$:SHOWIO/UPDATE=(ENH$: SHOWIO) 


; Size: 547 + 375 
a ob 18.4 375 data bytes 


3; Run Time: 

3; Elapsed Time: se. 
3 Lines/CPU Min: 1774 
3 Lexemes/CPU-Min: 38311 
3 7 Used: 135 pages 
3; Compilation Complete 
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